home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WWTCLKit / WWTCLWidgetsPalette.m < prev    next >
Encoding:
Text File  |  1995-03-22  |  2.8 KB  |  109 lines
  1. /* Copyright 1993 Michael B. Johnson
  2.  * Permission to use, copy, modify, and distribute this
  3.  * software and its documentation for any non-commercial 
  4.  * purpose and without fee is hereby granted, provided that the 
  5.  * above copyright notice appears in all copies.  Michael B. Johnson
  6.  * makes no representations about the suitability of this
  7.  * software for any purpose.  It is provided "as is" without
  8.  * express or implied warranty.
  9.  *
  10.  * Permission to use, copy, modify or distribute this software
  11.  * and its documentation for any commercial purpose must be
  12.  * confirmed in writing with Michael B. Johnson.  He can be
  13.  * contacted at:
  14.  *              20 Ames St. E15-023G    
  15.  *              Cambridge, MA 02141
  16.  *              (617) 547 0563
  17.  *              
  18.  */
  19.  
  20. #include "WWTCLWidgetsPalette.h"
  21. #include "WWThumbWheel.h"
  22. #include "WWButton.h"
  23. #include "WWSimpleMovieView.h"
  24.  
  25. @implementation  WWTCLWidgetsPalette
  26.  
  27. - finishInstantiate
  28. {
  29.   [self associateObject:tclInterpData type:IBObjectPboardType with:tclInterpView];
  30.   [self associateObject:timerData type:IBObjectPboardType with:timerView];
  31.   return self;
  32. }
  33.  
  34. - setLinHorizTW:object { linHorizTW=object; return self; }
  35.  
  36. - setLinVertTW:object 
  37. { linVertTW = object; [linVertTW setDirection:DIRECTION_VERTICAL];return self;}
  38.  
  39. - setRadHorizTW:object
  40. {
  41.     radHorizTW=object;
  42.     [radHorizTW setDisplayMode:DISPLAY_MODE_RADIAL];
  43.     [radHorizTW setVisibleMax:90];  [radHorizTW setVisibleMin:-90];
  44.     [radHorizTW setAbsoluteMax:90]; [radHorizTW setAbsoluteMin:-90];
  45.     return self;
  46. }
  47.  
  48. - setRadVertTW:object
  49. {
  50.     radVertTW=object;
  51.     [radVertTW setDirection:DIRECTION_VERTICAL]; 
  52.     [radVertTW setDisplayMode:DISPLAY_MODE_RADIAL];
  53.     [radVertTW setVisibleMax:90];  [radVertTW setVisibleMin:-90];
  54.     [radVertTW setAbsoluteMax:90]; [radVertTW setAbsoluteMin:-90];
  55.     return self;
  56. }
  57.  
  58. - setSwitchButton:object
  59. {
  60.   switchButton=object;
  61.   [switchButton setTitle:"Switch"]; 
  62.   [switchButton setIcon:"NXswitch" position:NX_ICONRIGHT];
  63.   [switchButton setAltIcon:"NXswitchH"];
  64.   [switchButton setType:NX_SWITCH];
  65.   return self;
  66. }
  67.  
  68. - setTextField:object
  69. {
  70.   textField=object;
  71.   [textField setStringValue:"Text"]; 
  72.   [textField setBezeled:YES];
  73.   [textField setEditable:YES];
  74.   return self;
  75. }
  76.  
  77. - setMovieVarView:object
  78. {
  79.   movieVarView=object;
  80.   // this image should be in the palette bundle...
  81.   [movieVarView setImageFile:"WWMovieVarView"]; 
  82.   [movieVarView setImageIsShared:YES]; 
  83.   return self;
  84. }
  85.  
  86. - setMovieProcView:object
  87. {
  88.   movieProcView=object;
  89.   // this image should be in the palette bundle...
  90.   [movieProcView setImageFile:"WWMovieProcView"]; 
  91.   [movieProcView setImageIsShared:YES]; 
  92.   return self;
  93. }
  94.  
  95.  
  96. - setMovieView:object
  97. {
  98.   movieView=object;
  99.   // this image should be in the palette bundle...
  100.   [movieView setImageFile:"WWSimpleMovieView"]; 
  101.   [movieView setImageIsShared:YES]; 
  102.   // should have an anim here too...
  103.  
  104.   return self;
  105. }
  106.  
  107.  
  108. @end
  109.